home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_menus.tcl < prev    next >
Encoding:
Text File  |  1995-03-14  |  13.4 KB  |  411 lines
  1. # jedit_menus.tcl - menus for jedit, a tk-based editor
  2. # 
  3. # Copyright 1992-1995 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # jedit:mkmenus - create menubar
  9. ######################################################################
  10.  
  11. proc jedit:mkmenus {mb t} {
  12.   j:debug
  13.   global JEDIT_MODEPREFS
  14.   
  15.   set mode [jedit:get_mode $t]
  16.   
  17.   set all_menus {editor file edit prefs abbrev filter format mode1 mode2}
  18.   set displayed_menus {}
  19.   
  20.   foreach menu $all_menus {
  21.     if [winfo exists $mb.$menu] {
  22.       destroy $mb.$menu
  23.     }
  24.     if $JEDIT_MODEPREFS($mode,menu,$menu) {
  25.       catch {
  26.         jedit:mkmenu:$menu $mb.$menu $t
  27.         pack $mb.$menu -in $mb -side left
  28.         lappend displayed_menus $mb.$menu
  29.       }
  30.     }
  31.   }
  32.   
  33.   # check for user menu proc - normally in ~/.tk/jeditrc.tcl
  34.   #
  35.   if $JEDIT_MODEPREFS($mode,menu,user) {
  36.     if {[info procs jedit:mkmenu:user] != {}} {
  37.       if [winfo exists $mb.user] {
  38.         destroy $mb.user
  39.       }
  40.       jedit:mkmenu:user $mb.user $t
  41.       pack $mb.user -in $mb -side right
  42.       lappend displayed_menus $mb.user
  43.     }
  44.   }
  45.   
  46.   eval tk_menuBar $mb $displayed_menus
  47. }
  48.  
  49. proc jedit:mkmenu:editor {menu t} {
  50.   global JEDIT_MODEPREFS
  51.   
  52.   menubutton $menu -text {Editor} -menu $menu.m
  53.   
  54.   menu $menu.m
  55.   
  56.   $menu.m add command -label {Help} -accelerator {[h]} \
  57.     -command "jedit:cmd:help $t"
  58.   $menu.m add command -label {About the Editor . . .} \
  59.     -command "jedit:cmd:about $t"
  60.   $menu.m add command -label {Global Preferences . . .} \
  61.     -accelerator {[G]} \
  62.     -command {j:global_pref_panel}
  63.   $menu.m add command -label {Editor Preferences . . .} \
  64.     -accelerator {[P]} \
  65.     -command "jedit:cmd:edit_prefs $t"
  66.   $menu.m add command -label {Mode Preferences . . .} \
  67.     -command "jedit:cmd:mode_prefs $t"
  68.   $menu.m add command -label {Mode . . .} -accelerator {[m]} \
  69.     -command "jedit:cmd:ask_mode $t"
  70.   $menu.m add separator
  71.   $menu.m add command -label {Issue Tcl Command . . .} \
  72.     -accelerator {[T]} -command {j:prompt_tcl}
  73.   $menu.m add command -label {Issue Unix Command . . .} \
  74.     -accelerator {[U]} -command {j:prompt_unix}
  75.   $menu.m add separator
  76.   $menu.m add command -label {New Window} -accelerator {[n]} \
  77.     -command "jedit:cmd:new_window $t"
  78.   $menu.m add command -label {Done} \
  79.     -command "jedit:cmd:done $t"
  80.   $menu.m add command -label {Close Window} -accelerator {[w]} \
  81.     -command "jedit:cmd:close $t"
  82.   $menu.m add command -label {Quit} -accelerator {[q]} \
  83.     -command "jedit:cmd:quit $t"
  84. }
  85.  
  86. proc jedit:mkmenu:file {menu t} {
  87.   global JEDIT_MODEPREFS
  88.   
  89.   menubutton $menu -text {File} -menu $menu.m
  90.   
  91.   menu $menu.m
  92.   
  93.   $menu.m add command -label {Load . . .} -accelerator {[l]} \
  94.     -command "jedit:cmd:load $t"
  95.   $menu.m add command -label {Save} -accelerator {[s]} \
  96.     -command "jedit:cmd:save $t"
  97.   $menu.m add command -label {Save As . . .} -accelerator {[S]} \
  98.     -command "jedit:cmd:saveas $t"
  99.   $menu.m add command -label {Print . . .} -accelerator {[p]} \
  100.     -command "jedit:cmd:print $t"
  101.   $menu.m add separator
  102.   $menu.m add command -label {Insert File . . .} -accelerator {[i]} \
  103.     -command "jedit:cmd:insfile $t"
  104. }
  105.  
  106. proc jedit:mkmenu:edit {menu t} {
  107.   global JEDIT_MODEPREFS
  108.   
  109.   menubutton $menu -text {Edit} -menu $menu.m
  110.   
  111.   menu $menu.m
  112.   
  113.   $menu.m add command -label {Cut} -accelerator {[x]} \
  114.     -command "jedit:cmd:cut $t"
  115.   $menu.m add command -label {Copy} -accelerator {[c]} \
  116.     -command "jedit:cmd:copy $t"
  117.   $menu.m add command -label {Paste} -accelerator {[v]} \
  118.     -command "jedit:cmd:paste $t"
  119.   $menu.m add command -label {Note} -accelerator {[N]} \
  120.     -command "jedit:cmd:note $t"
  121.   $menu.m add command -label {Insert X Selection} -accelerator {[V]} \
  122.     -command "jedit:cmd:xpaste $t"
  123.   $menu.m add command -label {Select All} -accelerator {[a]} \
  124.     -command "jedit:cmd:select_all $t"
  125.   $menu.m add separator
  126.   $menu.m add command -label {Find . . .} -accelerator {[f]} \
  127.     -command "jedit:cmd:find $t"
  128.   $menu.m add command -label {Find Again} -accelerator {[g]} \
  129.     -command "jedit:cmd:find_again $t"
  130.   $menu.m add separator
  131.   $menu.m add command -label {Go to Line . . .} -accelerator {[L]} \
  132.     -command "jedit:cmd:go_to_line $t"
  133.   $menu.m add command \
  134.     -label {Show Current Position . . .} -accelerator {[C]} \
  135.     -command "jedit:cmd:current_line $t"
  136.   $menu.m add separator
  137.   #
  138.   # the following three SHOULD BE affected by later configuration, and a trace
  139.   # on JEDIT_PREFS(undolevel) (but aren't)
  140.   #
  141.   $menu.m add command -label {Checkpoint} \
  142.     -command "jedit:cmd:save_checkpoint $t"
  143.   $menu.m add command -label {Undo} -accelerator {[z]} \
  144.     -command "jedit:cmd:undo $t"
  145.   $menu.m add command -label {Redo} -accelerator {[Z]} \
  146.     -command "jedit:cmd:redo $t"
  147. }
  148.  
  149. proc jedit:mkmenu:prefs {menu t} {
  150.   global JEDIT_MODEPREFS
  151.   
  152.   set mode [jedit:get_mode $t]
  153.   
  154.   menubutton $menu -text {Prefs} -menu $menu.m
  155.   
  156.   menu $menu.m
  157.   
  158.   $menu.m add checkbutton -label {Save/load visual state} \
  159.     -variable JEDIT_MODEPREFS($mode,savestate) \
  160.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  161.   $menu.m add checkbutton -label {Break lines on <space>} \
  162.     -variable JEDIT_MODEPREFS($mode,autobreak) \
  163.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  164.   $menu.m add checkbutton -label {Indent lines on <Return>} \
  165.     -variable JEDIT_MODEPREFS($mode,autoindent) \
  166.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  167.   $menu.m add separator
  168.   $menu.m add radiobutton -label {Don't wrap lines} \
  169.     -variable JEDIT_MODEPREFS($mode,textwrap) -value none \
  170.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  171.   $menu.m add radiobutton -label {Wrap lines anywhere} \
  172.     -variable JEDIT_MODEPREFS($mode,textwrap) -value char \
  173.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  174.   $menu.m add radiobutton -label {Wrap lines at words} \
  175.     -variable JEDIT_MODEPREFS($mode,textwrap) -value word \
  176.     -command "jedit:apply_prefs \[jedit:text_to_top $t\]"
  177. }
  178.  
  179. proc jedit:mkmenu:abbrev {menu t} {
  180.   global JEDIT_MODEPREFS
  181.   
  182.   set mode [jedit:get_mode $t]
  183.   
  184.   menubutton $menu -text {Abbrev} -menu $menu.m
  185.   
  186.   menu $menu.m
  187.   
  188.   $menu.m add checkbutton -label {Static Abbreviation} \
  189.     -accelerator {[Space]} \
  190.     -variable JEDIT_MODEPREFS($mode,sabbrev) -onvalue 1 -offvalue 0
  191.   $menu.m add checkbutton -label {Dynamic Abbreviation} \
  192.     -accelerator {[Tab]} \
  193.     -variable JEDIT_MODEPREFS($mode,dabbrev) -onvalue 1 -offvalue 0
  194.   $menu.m add separator
  195.   $menu.m add command -label {Expand Static Abbreviation} \
  196.     -accelerator {[']} \
  197.     -command "jedit:cmd:sabbrev $t"
  198.   $menu.m add command -label {Expand Dynamic Abbreviation} \
  199.     -accelerator {[;]} \
  200.     -command "jedit:cmd:dabbrev $t"
  201.   $menu.m add separator
  202.   $menu.m add command -label {Edit Static Abbreviations} \
  203.     -command "jedit:cmd:edit_abbrevs"
  204.   $menu.m add command -label {Reread Static Abbreviations} \
  205.     -command "jedit:cmd:read_abbrevs"
  206. }
  207.  
  208. proc jedit:mkmenu:filter {menu t} {
  209.   global JEDIT_MODEPREFS
  210.   
  211.   menubutton $menu -text {Filter} -menu $menu.m
  212.   
  213.   menu $menu.m
  214.   
  215.   $menu.m add command -label {Format Lines with `fmt'} \
  216.     -accelerator {[F]} \
  217.     -command "jedit:pipe $t {fmt}"
  218.   $menu.m add separator
  219.   #
  220.   # following few entries are tricky syntactically.  the commands are in
  221.   # quotes, so double-quote-style substitution is done on the ENTIRE
  222.   # command (braces aren't special in quotes).
  223.   #
  224.   $menu.m add command -label {Indent} \
  225.     -accelerator {[]]} \
  226.     -command "jedit:text_regsub $t {(^|\n)} {\\1  }"
  227.   $menu.m add command -label {Quote Email} \
  228.     -command "jedit:text_regsub $t {(^|\n)} {\\1> }"
  229.   $menu.m add command -label {Unindent/Unquote} \
  230.     -accelerator {[[]} \
  231.     -command "jedit:text_regsub $t {(^|\n)\[> \] } {\\1}"
  232.   #
  233.   $menu.m add separator
  234.   $menu.m add command -label {Capitalise} \
  235.     -command "jedit:pipe $t {tr {\[a-z\]} {\[A-Z\]}}"
  236.   $menu.m add command -label {Lowercase} \
  237.     -command "jedit:pipe $t {tr {\[A-Z\]} {\[a-z\]}}"
  238.   $menu.m add command -label {Toggle Case} \
  239.     -command "jedit:pipe $t {tr {\[A-Z\]\[a-z\]} {\[a-z\]\[A-Z\]}}"
  240.   $menu.m add separator
  241.   $menu.m add command -label {Sort by ASCII Sequence} \
  242.     -command "jedit:pipe $t {sort}"
  243.   $menu.m add command -label {Sort Numerically} \
  244.     -command "jedit:pipe $t {sort -n}"
  245.   $menu.m add command -label {Sort Alphabetically} \
  246.     -command "jedit:pipe $t {sort -if}"
  247.   $menu.m add separator
  248.   $menu.m add command -label {Pipe Through . . .} -accelerator {[|]} \
  249.      -command "jedit:cmd:run_pipe $t"
  250.   $menu.m add command -label {Insert Output of . . .} -accelerator {[!]} \
  251.      -command "jedit:cmd:run_command $t"
  252. }
  253.  
  254. proc jedit:mkmenu:format {menu t} {
  255.   global JEDIT_MODEPREFS jedit_mkmenu_format
  256.   
  257.   menubutton $menu -text {Format} -menu $menu.m
  258.   
  259.   menu $menu.m
  260.   
  261.   jedit:mkmenu:format:font $menu.m.font $t
  262.   jedit:mkmenu:format:background $menu.m.background $t
  263.   jedit:mkmenu:format:foreground $menu.m.foreground $t
  264.   jedit:mkmenu:format:characters $menu.m.characters $t
  265.   
  266.   $menu.m add command -label "Rich Cut" -command "jedit:cmd:rich_cut $t"
  267.   $menu.m add command -label "Rich Copy" -command "jedit:cmd:rich_copy $t"
  268.   $menu.m add command -label "Rich Paste" -command "jedit:cmd:rich_paste $t"
  269.   $menu.m add separator
  270.   $menu.m add cascade -label "Font" -menu $menu.m.font
  271.   $menu.m add cascade -label "Background" -menu $menu.m.background
  272.   $menu.m add cascade -label "Foreground" -menu $menu.m.foreground
  273.   $menu.m add checkbutton -label "Underline" \
  274.     -variable jedit_mkmenu_format(underline) \
  275.     -command "jedit:format:underline $t \$jedit_mkmenu_format(underline)"
  276.   $menu.m add separator
  277.   $menu.m add command -label {Type in Plain} \
  278.     -command "j:tag:set_tags $t {}; set jedit_mkmenu_format(underline) 0"
  279.   $menu.m add separator
  280.   $menu.m add cascade -label "Characters" -menu $menu.m.characters
  281.   $menu.m add separator
  282.   $menu.m add command -label "Rich Save As . . ." -command "j:tc:saveas $t"
  283.   $menu.m add separator
  284.   $menu.m add command -label "Print PostScript" \
  285.     -command "jedit:cmd:print_postscript $t"
  286. }
  287.  
  288. proc jedit:mkmenu:format:font {menu t} {
  289.   global JEDIT_MODEPREFS
  290.   
  291.   menu $menu
  292.   
  293.   $menu add command -label {Roman} \
  294.     -accelerator {[R]} \
  295.     -command "jedit:font:roman $t"
  296.   $menu add command -label {Italic} \
  297.     -accelerator {[I]} \
  298.     -command "jedit:font:italic $t"
  299.   $menu add command -label {Bold} \
  300.     -accelerator {[B]} \
  301.     -command "jedit:font:bold $t"
  302.   $menu add command -label {Bold Italic} \
  303.     -accelerator {[X]} \
  304.     -command "jedit:font:bolditalic $t"
  305.   $menu add command -label {Typewriter} \
  306.     -accelerator {[M]} \
  307.     -command "jedit:font:typewriter $t"
  308.   $menu add separator
  309.   $menu add command -label {Level 0 Heading} \
  310.     -command "jedit:font:heading0 $t"
  311.   $menu add command -label {Level 1 Heading} \
  312.     -command "jedit:font:heading1 $t"
  313.   $menu add command -label {Level 2 Heading} \
  314.     -command "jedit:font:heading2 $t"
  315.   $menu add command -label {Level 3 Heading} \
  316.     -command "jedit:font:heading3 $t"
  317.   $menu add command -label {Level 4 Heading} \
  318.     -command "jedit:font:heading4 $t"
  319.   $menu add command -label {Level 5 Heading} \
  320.     -command "jedit:font:heading5 $t"
  321.   $menu add separator
  322.   $menu add command -label {Plain Font} \
  323.     -command "jedit:font:plain $t"
  324. }
  325.  
  326. proc jedit:mkmenu:format:background {menu t} {
  327.   global JEDIT_MODEPREFS
  328.   
  329.   menu $menu
  330.   
  331.   $menu add command -label {Plain Background} \
  332.     -command "jedit:format:background:clear $t"
  333.   $menu add separator
  334.   
  335.   set colours {
  336.     Black Grey25 Grey33 Grey50 Grey66 Grey75 White
  337.     Red Green Blue Cyan Magenta Yellow
  338.     LemonChiffon Gold SpringGreen
  339.   }
  340.   
  341.   foreach colour $colours {
  342.     $menu add command -label $colour \
  343.       -command [list jedit:format:background $t $colour]
  344.   }
  345. }
  346.  
  347. proc jedit:mkmenu:format:foreground { menu t } {
  348.   global JEDIT_MODEPREFS
  349.   
  350.   menu $menu
  351.   
  352.   $menu add command -label {Plain Foreground} \
  353.     -command "jedit:format:foreground:clear $t"
  354.   $menu add separator
  355.   
  356.   set colours {
  357.     Black Grey25 Grey33 Grey50 Grey66 Grey75 White
  358.     Red Green Blue Cyan Magenta Yellow
  359.     LemonChiffon Gold SpringGreen
  360.   }
  361.   
  362.   foreach colour $colours {
  363.     $menu add command -label $colour \
  364.       -command [list jedit:format:foreground $t $colour]
  365.   }
  366. }
  367.  
  368. proc jedit:mkmenu:format:characters { menu t } {
  369.   menu $menu
  370.   
  371.   $menu add command -label "Select Character . . ." \
  372.     -command "jedit:cmd:char_panel $t"
  373.   $menu add command -label "Insert Hyphen" \
  374.     -accelerator {[-]} \
  375.     -command "jedit:cmd:hyphen $t"
  376.   $menu add command -label "Insert Copyright Symbol" \
  377.     -command "jedit:cmd:copyright $t"
  378. }
  379.  
  380. proc jedit:mkmenu:mode1 { menu t } {
  381.   set mode [jedit:get_mode $t]
  382.   
  383.   #####################  should check for proc, not just catch! ##############
  384.   catch {eval mode:$mode:mkmenu1 $menu $t}
  385. }
  386.  
  387. proc jedit:mkmenu:mode2 { menu t } {
  388.   set mode [jedit:get_mode $t]
  389.   
  390.   #####################  should check for proc, not just catch! ##############
  391.   catch {eval mode:$mode:mkmenu2 $menu $t}
  392. }
  393.  
  394. ######################################################################
  395. # jedit:menus:prefs w mode- return mode menu preferences metawidget
  396. ######################################################################
  397.  
  398. proc jedit:prefs:menus { w mode } {
  399.   global JEDIT_MODEPREFS
  400.   
  401.   frame $w
  402.   foreach menu {file edit prefs abbrev filter format mode1 mode2 user} {
  403.     checkbutton $w.$menu -relief flat -anchor w \
  404.       -text "Show $menu menu" \
  405.       -variable JEDIT_MODEPREFS($mode,menu,$menu)
  406.     pack $w.$menu -expand y -fill x
  407.   }
  408.   
  409.   return $w
  410. }
  411.